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EDITORIAL 


Ao chegarmos a este 4.º número de SÓ PROGRAMAS, viemos 
a constatar que, em sua maioria, os nossos leitores também são compra- 
dores de nossa irmã mais velha, INFORMÁTICA. Como estamos todos 
vivendo numa época onde prevalece a racionalidade (e também econo- 
mia), optamos por uma solução que achamos a ideal: a partir do próxi- 
mo mês o nosso leitor poderá ter ambas as revistas numa só. SÓ PRO- 
GRAMAS fará parte de INFORMÁTICA, que circulará normalmente 
em todo o país, fazendo com que, ao invés de comprar duas publica- 
ções, você faça uma ““economiazinha”” adquirindo uma só, com todos 
os dados que necessita. | 


Um abraço e até o mês que vem, em INFORMÁTICA. 


O EDITOR 
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“Quero dar meus parabéns à equipe 
de “SÓ PROGRAMAS”, por já no se- 
gundo número, ter corrigido a única 
falha da revista, que era o problema 
dos caracteres gráficos, que estavam 
muito confusos no primeiro número. 
A revista agora ao meu ver está perfei- 
ta. Áproveito a oportunidade para en- 
trar em contato com todos que te- 
nham TK-85 e compatíveis. Escrevam- 
me a fim de trocarmos programas e di- 
cas.” 

Fernando Antonio Silva 

Rua Noronha Torrezão, 141, apto. 

304 — CEP 24240 — Niterói — RJ 


Obrigado Fernando, nos números 
futuros será feita a seção de anúncios 
dos leitores. 


“Estou aqui colaborando com mi: 
nha opinião e pela primeira vez nesta 
revista. E gostei!!! 

Quanto a publicação de número 
um, fiquei fascinado com a perspectiva 
de obter, todo mês, uma revista volta- 
da, exclusivamente para a confecção 
de programas. É deu certo! 

Uma revista acessível, clara e gosto- 
sa de ler. E que programas!!! 

Tenho algumas sugestões que, se 
aceitas, garanto que tornarão esta re- 
vista ainda no meio “informático”. 

19) Aumentar o número de páginas 
(e de programas). 

20) Junto a seção de cartas (ótimas, 
por sinal), introduzir uma seção de 
classificados. 

30) Criar um clube nacional de usuá- 
rios, para troca de programas, dicas, 
etc. 


49) Realizar, mensalmente (ou de 
acordo com as possibilidades), concur- 
sos elegendo o melhor programa de lei- 
tores, premiando com fitas, assinatu- 
ras, etc. 

59) Realizar um sorteio anual de 
um micro (super-concurso ). 

Por enquanto, é só. 

No momento em que acabo de es- 
crever estas “mal traçadas linhas”, já 
estou pensando em um programa para 
enviar a vocês. 

Obs.: Continuem os programas Sin- 
clair! 

Um abraço e felicidades a todos.' 

Paulo Santos Lima Jr. 

Porto Alegre — R$ 


, 


É isso aí, Paulo, todas as suas suges- 
tões por incrível que pareça, estão sen- 
do encaminhadas, só que devido ao 
tempo e reajustes, serão feitas aos pou- 
cos. Muito obrigado, e continue man- 
dando suas opiniões, que sempre serão 
bem aceitas. 


“Tenho 15 anos e possuo um micro 
“RINGO R-470 da linha Sinclair”. 
Gosto muito de passar jogos no meu 
micro, especialmente aqueles que vo- 
cês publicam em sua revista. De todas 
as suas revistas, a que mais me agradou 
foi a “SÓ PROGRAMAS”, porque ela 
tem muitos programas educativos e fá- 
ceis de digitar Aproveitando essa 
oportunidade, gostaria que vocês pu- 
blicassem na próxima edição de “SÓ 
PROGRAMAS”, um programa (jogo) 
semelhante ao PACMAN, pois gosto 
muito deste tipo de programa. 

Antecipadamente agradeço.” 

Willian Renato Bertoncini 

Registro — SP 
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Caro Willian, muito obrigado pela 
sua preferência, quanto aos programas 
de jogos nesse nível, já estão sendo ela- 
borados, só que demoram, devido à sua 
complexidade. Continue com a gente, 
pois você é novo, e tem muita vida 
pela frente, e garanto que se tornará 
um grande programador. 





“Prezados amigos 

Venho por meio desta felicitá-los 
pela ótima revista que lançaram no 
mercado, que diferencia de muitas 
revistas, porque elas não têm quase 
jogos e explicações nas linhas, como 
são feitas por vocês da equipe da re- 
dação, 100% corretas. 

Eu sou um pouco novato neste ra- 
mo de programador, mas tenho facili- 
dade de fazer e digitar, pois não há 
muito segredo nisto, a única função 
que não entendi foi o “PRINT AT”, 
peço que os senhores me dêem uma 
explicação, pois foi lançada no “SÓ 
PROGRAMAS”, 

Vou mandar-lhes um programa de 
uma teia de aranha de minha oferta. ” 

Paulo César da Silva 

Cascavel — PR 


Antes de mais nada, o nosso muito 
obrigado, quanto à sua dúvida sobre o 
“PRINT AT” aí vai: 

Vamos denominar a coordenada L 
de linha e a coordenada C de coluna, 
supondo que você queira imprimir na 
tela um caracter num local predeter- 
minado, e que esse local seja na linha 
(L) 11 e coluna (C) 15, colocando na 
prática seria: 


16 LET L=11 

20 LET C=15 

30 PRINT AT L,C;“ (caracter deseia- 
do)” 


Acreditamos que este exemplo seja 
suficiente, pois pela linha 3 você per- 
cebe que “PRINT AT”, simplesmente 
imprime um caracter ou uma frase, 
etc., em um ponto determinado por 
você, tente fazer outras coordenadas 
para compreender esta função “PRINT 
AT”. Quanto ao seu programa, foi pu- 
blicado na seção PROGRAMA DO LEI- 
TOR. 


“Possuindo um micro TK-85, recen- 
temente adquirido, tenho uma dúvida, 
que gostaria que fosse solucionada: 

Programei o meu micro para alguns 
jogos de lazer. Para isto fiz uso do meu 
joystick, entretanto, ele se mostrava 
muito pouco eficiente, ou seja, quando 
manipulava o joystick, ele não respon- 
dia satisfatoriamente aos meus coman- 
dos (ora sim, ora não), o mesmo acon- 
teceu, quando substitui o joystick pe- 
las teclas correspondentes ao micro. 

Qual a causa do ocorrido? Falha na 
programação? Falha mecânica do mi- 
cro efou joystick?” 

Clésio Barbosa Alves 

Cachoeirinha — Belo Horizonte — 

MG 


Amigo Clésio, estes problemas po- 
dem ser decorrentes de vários motivos: 


19) O mais provável é o joystick, 
porque nós da equipe não encontra- 
mos um, que realmente respondesse 
adequadamente. 


29) Há a hipótese de que o micro 
esteja com mal contato, no seu inte- 
rior existem duas membranas, que dão 
contato ao teclado; uma com cinco fi- 
letes e outra com oito filetes, se uma 
delas estiver solta, ou meia solta, seu 
teclado não funcionará corretamente, 
assim O joystick, provavelmente, seja a 
de cinco filetes (se for o caso). 


39) Também é possível que você te- 
nha conectado o joystick incorreta- 
mente, o que achamos improvável. 

Quanto à hipótese de ter digitado 
erradamente, só será por esta causa se 
tiver digitado as coordenadas de ma- 
neira errada, o que também achamos 
improvável. 


Caso nenhum destes itens seja a 
causa do seu problema, então seu mi- 
cro deve estar com defeito. 


Esperamos ter resolvido seu proble- 
ma, e que não seja nenhum problema 
sério. Se houver problemas ou dúvidas 
envie-nos, que teremos o prazer de 
tentar ajudá-lo. 
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“Gostei muito da revista “SÓ PRO- 
GRAMAS” no 1, e ainda mais da 
no 2. 

Pediria por gentileza, que vocês me 
quxiliassem nos seguintes problemas: 

10) No programa “SEU LADRÃO” 
da revista nQ 1, não consigo me mover 
para cima. Já verifiquei todo o progra- 
ma e não se trata de erro de digitação. 

20) No programa “MURO” da re- 
vista no 2, não consigo me mover para 
a direita e nem pra esquerda. Também 
digitei tudo corretamente. 

Por isso eu pergunto: O que fazer?” 

Marcelo de Oliveira 

Foz do Iguaçu — PR 


11º, 





Caro Marcelo, estes problemas cita- 
dos por você, só seriam causados por 
dois motivos: 

19) Ou seu micro está com proble- 
ma de mal contato na parte do teclado. 

29) Ou se possuir joystick, ele deve 
estar com algum fio solto, ou sujo, 
porque nos programas citados, as li- 
nhas que definem movimento são as 
que possuem INKEY $, e neles existem 
estas linhas. É possível, também, que 
você tenha dado a coordenada errada 
para estas linhas. 

Esperamos que seus problemas se- 
jam resolvidos, no mais, muito obriga- 
do. 
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Este é um programa educativo, 
ou Seja mais um, porque no nú- 
mero anterior publicamos o pro- 
grama DIVISÃO, onde o esque- 
ma é o mesmo do anterior, para 
àquelas pessoas que não possuem 
o número anterior, tornarei a ex- 
plicar. 

Trata-se de um programa que 
serve tanto para adultos como 
para crianças, em especial para as 
crianças ou jovens que estão estu- 
dando e possuem dificuldade nes- 
tes tipos de problemas matemáti- 
cos. O programa formula uma 
questão, depois caso a pessoa o 
erre, pede para que faça o exer- 
cício em partes e após ter conse- 
guido executar o problema torna 





a pedir que o execute como no 
início. 


Este tipo de programa é ótimo 
para aquelas crianças que odeiam 
estudar, pois um computador (ou 
uma televisão) sempre atraem as 
crianças, e além do mais ensina 
ao mesmo tempo a computação 
para elas. 


Agora se você tem uma idade 
avançada e julga ser “o bom”, 
teste primeiro e depois pode di- 
zer “eu sou o bom”, caso contrá- 
rio, dê uma escapadinha à noite 
e de mansinho, sem que ninguém 
lhe ouça, estude através dele 
(lembre-se que para ensinar é pre- 
ciso saber). 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
180 
190 
195 
197 
200 
210 
220 
230 
240 
250 
260 
270 
290 


310 


320 
450 
455 
460 
470 
480 
490 
495 
500 
501 
505 
510 
512 
515 
516 
517 
518 
520 
525 
530 
535 
540 


MEMÓRIA OCUPADA 4.756 Kbytes 


RAND 
PRINT AT 2,0:/QUAL NIVEL VOCE QUER?” 
PRINT AT 4,6:'1. FACIL” 

PRINT AT 5,6:'2. MEDIO” 

PRINT AT 6,6:'3. DIFICIL” 

INPUT Z 

IFZ<10RZ>3THENGOTO 70 

CLS 

PRINT AT 6,0:/LEMBRE-SE DE VER SE E + OU -” 
FOR F=0 TO 30 

NEXT F 

LET X=0 

LET W=0 

LET W=W+1 

LET K=0 

LET N=89+(Z**8) 

LET A=INT (N*RND+11) 

LET B=INT (N*RND+11) 

LET Y=INT (2*RND) 

IF Y AND B<A THEN GOTO 280 

LET D=B 

LET B=A 

LET A=D 

CLS 

IF W> 10 THEN GOTO 1200 

GOSUB 3000 

PRINT AT 6,6:2” 

PRINTAT6,0: "; 

INPUT P 

FOR J=1 TO 7-LEN STR$P 

PRINT 

NEXT J 

PRINTP 

FOR F=D TO 30 

NEXT F 

IF P=E THEN GOTO 1000 

PRINT AT 9,9:/ERRADO” 

LET K=1 

FOR F=0 TO 25 

NEXT F 

CLS 

GOSUB 3000 

PRINT AT 9,9: di 

PRINT AT 12,0; VEJAMOS O PROBLEMA EM PARTES" 
PRINT AT 14,0; “EXECUTE ESSA” 

PRINT AT 14,13;“ADICAO": 

IF Y THEN PRINT AT 14,13;“SUBTRACAO” 


é 
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800 
801 
802 
803 


820 
830 
840 
850 
860 
870 


LET FA=INT (A/1000)* 1000 
LET FB=INT (B/1000)* 1000 
LET GA=(INT (A/100)*100)-FA 
LET GB=(INT (B/100)*100)-FB 
LET HA=(INT (A/10)*10)-(GA+FA) 
LET HB=(INT (B/10)*10)-(GB+FB) 
LET |IA=A-(FA+GA+HA) 

LET |B=B-(FB+GB+HB) 

IF NOT Y THEN GOTO 650 
IFIA> =IB THEN GOTO 625 
LET IA=IA+10 

LET HA=HA-10 

IF HA> =HB THEN GOTO 635 
LET HA=HA+100 

LET GA=GA-100 

IF GA > =GB THEN GOTO 650 
LET GA=GA+1000 

LET FA=FA-1000 

LET L=4 

PRINT AT 3,8;=" 

PRINT AT 4,8;'=" 

LET M=IA 

LET N=IB 

GOSUB 1100 

IFP< > QTHEN GOTO 510 
LET M=HA 

LET N=HB 

GOSUB 1100 

IFP<> QOTHEN GOTO 510 

IF B< 100 ANDA < 100 THEN GOTO 760 
LET M=GA 

LET N=GB 

GOSUB 1100 

IFP< > QTHEN GOTO 510 
IFB< 1000 AND AS 1000 THEN GOTO 760 
LET M=FA 

LET N=FB 

GOSUB 1100 

IFP<> O THEN GOTO 510 
PRINT AT 12,0;“BOM. AGORA EXECUTE ESTA QUESTAO" 
PRINT AT 16,0; ": 

FOR J=1TO 6 

PRINT "(16 espaços)": 

NEXT J 

PRINTAT 14,0; ": 

FOR J=1 TO 4 

PRINT “(7 espaços)”: 

NEXT J E 

LET R1=FA+FB 

IF Y THEN LET R1=FA-BF 
LET R2=GA+GB 

IF Y THEN LET R2=GA-GB 
LET R3=HA+HB 

IF Y THEN LET R3=HA-HB 
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880 
890 
892 
893 
894 
895 


900 
902 
909 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 


LET R4=1A+IB 

IF Y THEN LET R4=IA-IB 

PRINT AT 14,0; "; 

IFR1<> OTHENPRINTRI;U +”; 


IF R2<> DOR (R2=0 AND R1 <> 0) THEN PRINT R2;º + "; 


IF R3€> 00OR (R3=0 AND (R1<>00RR2<>0)) THEN PR 
INTR3;O +": 

PRINT R4;” =(12 espaços)” 
LET J=0 

LET R=Ô0 

IF R3<> Q THEN LET R=8 
IF R2«> 0 THEN LET R=17 
IF R1S<> O THEN LET R=5 
IF R1€> O0THEN LET J=2 
PRINT AT 14+J,5+R;"'2” 
INPUT P 

PRINT AT 14+J,5+R;P 

FOR F=0 TO 20 

NEXT F 

IFP<> E THEN GOTO 510 


930CLS 


940 

950 

960 

961 

970 

980 
1000 
1010 
1020 
1021 
1030 
1040 
1100 
1105 
1110 
1115 
1125 
1130 
1135 
1140 
1145 


1150 
1155 
1160 
1170 
1195 
1200 
1205 
1210 
1215 
1220 
1230 


PRINT AT 10,8;/CORRETO” 

PRINT AT 12,0:/AGORA VAMOS TENTAR NOVAMENTE” 
FOR F=0 TO 30 

NEXT F 

CLS 

GOTO 290 

IF K=0 THEN LET X=X+1 

PRINT AT 9,8:“CORRETO” 

FOR F=0 TO 30 

NEXT F 

CLS 

GOTO 195 

LET L=L+6 

LET LM=L 

IF LEN STR$M> LEN STR$N THEN LET LM=LM--1 
PRINT AT 3,LM;M 

PRINT AT4,L:N 

PRINT ATOS, L-1;(5 gráfico shift 7)" 

INPUT P 

LET LP=L 

IF LENSTR$P> LENSTR$N THEN LET LP=L-(LEN STR$ 
P-LEN STR$N) 

IF N=0 THEN LET LP=LM 

PRINT AT 6,LP;P 

LET O=M+N 

IF Y THEN LET 0=M-N 

RETURN 

CLS 

PRINT “VOCE OBTEVE “;X:” ENTRE“ W-1 
PRINT AT 2,0:“QUER TENTAR NOVAMENTE?” 
PRINT “S OU N ? (PRESSIONE NEWLINE)” 
INPUT Z$ 

IF CODE (Z$)=CODE ("'S'') THEN GOTO 180 
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1240 PRINT AT 5,0:/OBRIGADO ATE A PROXIMA...” 
1250 STOP 

3000 PRINT “ESTA E A QUESTAO “W 
3015 LET E=A+B 

3020 IF Y THEN LET E=A-B 

3030 PRINTAT3,2;" *: | 

3040 FOR J=1 TO 5- LENSTR$A 

3050 PRINT” *; 

3060 NEXT J 

3070 PRINTA 

3080 PRINTATA4O; +". 

3090 IF Y THEN PRINT AT4,0;'- ": 
3100 FOR J=1 TO 5-LEN STR$ B 

3110 PRINT”; 

3120 NEXT J 

3130 PRINT B 

3140 PRINT AT 5,2:(5 gráfico shift 7)" 
3200 RETURN 





VOCÊ que fabrica ou vende 
componentes, ferramentas, 


equipamentos ou qualquer 
produto ligado à area da 


ELETRÔNICA: 
ANUNCIE EM 


BE-A-BA' da: 
EUSTRONICA 


VEÍCULO NOVO E 
EFICIENTE, QUE 
ATINGE DIRETAMENTE 
O CONSUMIDOR DO 
SEU PRODUTO 


(011) 217.6111 (DIRETO) 
fones (011)943.8733 (DIRETO) | 
(011)223.2037 (CONTATOS) | 
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Esta é uma versão do jogo de 
damas que denominamos de DA- 
MAS DE SEIS, por que esse no- 
me?, é simples, porque é um jogo 
igual ao de dama só que num ta- 
buleiro de 6 x 6, jogado com seis 
peças para cada um, e com a se- 
guinte regra, de quem comer qua- 
tro peças do adversário ganha. 

Para quem não sabe, os movi- 
mentos de dama são em diago- 
nal, outra peculiaridade é que, 
você e o computador podem se 
mover para trás. 

ATENÇÃO: Não execute mo- 
vimentos absurdos, pois o compu- 





tador aceitaria e o jogo perderia 
a graça (basta ter bom senso). 
Cuidado portanto, o computador 
é muito malicioso e dificilmente 
perderá. Tente entender as linhas 
de movimento do computador, 
isso iria ampliar bem seu campo 
de aprendizado. 

Os movimentos são dados em 
forma de alfa-numéricos, ex.: 
“B1C2”. 

Divirta-se, mas não estraça-lhe 
seu computador, caso você perca. 

ATENÇÃO: Digite corretamen- 
te as linhas REM, e não rode-o 
antes de pronto. 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA 2.638 Kbytes 


10 REM XXXX.XX.............. 0.0.00.0.0. 
20 REM .X.X.XX.X.X.............. 0.0.00.0.0. 
30 FOR K=-16514 TO 16549 
40 POKE K,PEEK (K+42) 
50 NEXT K 
60 SLOW 
65 LET N=Q 
70 LET 2=16413 
80 LET S=Q 
100 DIM B(4) 
110 LET B(1)=5 
120 LET B(2)-=7 
130 LET B(3)=-5 
140 LET B(4)=-7 
150 SLOW 
160 LET K=Q 
170 GOSUB 200 
180 FAST 
190 GOTO 490 
200 PRINT AT 0,0;'TK-85=":N;'VOCE=":S 
210 PRINT 
220 FOR C=1TO 36 
230 PRINT CHR$ PEEK (2+C);".  *; 
240 IF 6G*(INT (C/6))=C THEN PRINT CHR$ (C/6+37) 
250 NEXTC 
260 PRINT“123456” 
270 FOR H=1 TO 30 
280 NEXT H 
290 RETURN 
300 GOSUB 200 
3190 SLOW 
320 PRINT “VOCE MOVE?” 
330 INPUT A$ 
340 LET D=6*(CODE A$(1)-38)+CODE (AS$ (2))-28 
350 LET E=6*(CODE A$(3)-38)+CODE (AS (4))-28 
360 IF PEEK (E+Z)=52 THEN LET S=S+1 
370 POKE (D+Z),27 
380 POKE (E+2Z),61 
390 GOSUB 200 
400 FAST 
410 IF S=4 THEN GOTO 600 
420 LET K=Q 
430 FOR F=1 TO 36 
440 FORM=-1TO4 
450 IF PEEK (F+2)=52 AND PEEK (F+2Z+B(M)|-61 THEN LET N=N 
+1 
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460 IF PEEK (F+Z)=52 AND PEEK (F+Z+B(M))=61 THEN GOTO 620 
470 NEXT M 

480 NEXT F 

490 LET M=1 

500 LET F=INT (RND*36)+1 

510 LET K=K+1 

520 IF PEEK (F+Z) <> 52 THEN GOTO 5900 

530 IF RND>.2 ANDM <3 THEN LET M=4-(INT (RND*4)) 

540 IF (F=60R F=18 OR F=30) AND (M=2 OR M=3) THEN GOTO 


570 

550 IF (F=31 OR F=19 OR F=7) AND (M=1 OR M=4) THEN GOTO 
570 

560 IF PEEK (F+Z+B(M))=27 AND PEEK (F+Z2+2*B(M)) <> 61 THEN 
GOTO 620 | 


570 LET M=M+1 

580 IF M“<5 THEN GOTO 540 
590 IFM<&200THEN GOTO 490 
600 PRINT “VOCE GANHOU” 
610 STOP 

620 SLOW 

630 POKE (F+2+B(M)),128 
640 GOSUB 200 

650 IF N=4 THEN GOTO 700 
660 POKE (F+2Z),27 

670 POKE (F+Z+B(M)),52 

689 GOTO 390 

100 PRINT “EU GANHEI” 

710 STOP 


RESERVE DESDE JA, NO SEU JOR- 
NALEIRO, O PROXIMO NUMERO DE 
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projetos fáceis, jogos, utilidades, pas- 
satempos, curiosidades, dicas, infor- 
mações... NA LINGUAGEM QUE VOCÊ 
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Neste jogo você será um ar- 
rombador de cofres, existe um 
cofre com um documento secre- 
to que você deve pegar, para isto 
terá que acertar o código do co- 
fre, com dez chances para deci- 
frar o código, que consiste de 
quatro números que estão entre 
um e nove, se não acertar nas dez 
chances, realmente será um pés- 
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simo arrombador de cofres. Não 
que essa seja a solução de vida, 
mas digamos que você possua um 
cofre (o que eu duvido, pois pa- 
ra ter cofre é preciso ter dinhei- 
ro para colocar nele), e por es- 
quecimento e descuido não sabe 
mais a combinação, taí uma boa 
oportunidade para treinar seus 
instintos furtiíferos. 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA 2.355 Kbytes 


10 DIM C(4) 

20 DIM G(4) 

30 LET C(1)=INT (RND*9)+1 
40) FOR Z2=2 TO 4 

50 LET C(Z)=INT (RND*9)+1 
60 FOR J=1 TO Z-1 

70 IF C(J)=C(Z) THEN GOTO 40 
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80 
90 
100 
105 


107 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
301 
302 


NEXT J 

NEXT Z 

FOR G=1 TO 10 

IF GS 10 THEN PRINT CHR$ (G+28);(1 gráfico shift 1)"; “CHAN 
CE” 

IF G=10 THEN PRINT “ULTIMA CHANCE” 

INPUT A 

LET A1=A 

FOR Z=1 TO 4 

LET G(2)=A-10* (INT (A/10)) 

LET A=INT (A/10) 

NEXT Z 

LET B=Q 

FOR Z=1 TO 4 

LET W=0 

IF C(Z) <> G(Z) THEN GOTO 230 

LET B=B+1 

LET G(Z)=0 

NEXT Z 

FOR Z=1 TO 4 

IF G(2)=0 THEN GOTO 300 

FOR J=1 TO 4 

IF C(Z) «> G(J) THEN GOTO 290 

LET W=W+1 

NEXT J 

NEXT Z 

PRINT AÍ; 

IF B=1 AND NOT W=2 AND NOT W=3 OR W=1 AND NOT B=2 AN 
D NOT B=2 AND NOT B=3 THEN PRINT “(1 gráfico shift 8) ESTA 
LONGE="; 


303 IF B=0 AND W=0 THEN-PRINT “(1 gráfico shift 8) HORRIVEL ="; 

304 IF B=2 AND W=0 OR B=1 AND W=2 OR B=2 AND W=1 THEN PRIN 
T “(1 gráfico shift 8) PAREO DURO ="; 

305 IF W=3 THEN PRINT "(1 gráfico shift 8) ESTA QUASE ="; 

306 IF B=3 THEN PRINT “(1 gráfico shift 8) FALTA UM ="; 

307 IF W=2 AND NOT B=1 AND NOT B=2 OR B=2 AND NOT W=1 AN 
D NOT W=2 THEN PRINT "(1 gráfico shift 8) E AGORA ? ="; 

308 IF B=4 THEN PRINT “(1 gráfico shift 8) CORRETO ="; 

309 IF B=2 AND W=2 THEN PRINT (1 gráfico shift 8) MOLEZA ="; 

310 PRINT CHR$ (B+156);“ DENTRO”; 

340 PRINT” “;CHR$ (W+156)” FORA”; 

350 PRINT 

360 IF B=4 THEN PRINT 

370 IF B=4 THEN PRINT “VOCE ACERTOU O NUMERO E ”; 

380 IF B=4 THEN GOTO 410 

390 NEXT G 

395 PRINT 

400 PRINT TAB 3;“0 CODIGO CORRETO ERA "; 

410 FOR Z=1 TO 4 

420 PRINT CHR$ (C(5-Z)+28); 

430 NEXT Z 

440 STOP 
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Neste jogo você será um agar- 
rador de barris que caem aleato- 
riamente pela tela. Você deve 
pegá-los e depositá-los nas prate- 
leiras existentes no meio e no to- 
po da tela, a cada barril que cair 
no chão irá perder uma vida. Vo- 
cê possui 30 vidas, as prateleiras 
comportam no máximo 60 barris 
os quais você colocará até tota- 
lizar essa soma, caso consiga terá 
cumprido sua missão, se aconte- 
cer o contrário será despedido 
sem nenhum direito. 

Seus controles são: 

“Bb (esquerda) 

“8” (direita) 

“QB” (atirar barril). 
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PROGRAMA DESENVOLVIDO PARA LINHA SINCLAIR 


105 
106 
110 


149 
150 
155 
156 
160 
170 
175 


177 


178 
179 
180 
181 
182 
190 


210 


ao 
401 
40 
420 
425 
426 


445. 


450 
451 
452 


MEMÓRIA OCUPADA 2.872 Kbytes 


LET E=Q 

LET X=21 

LET Y=13 

LET A=5 

LET C=Q0 

LET V=30 

LET |=20 

REM DESENHA A TELA 

LET A$="(2 gráfico shift F) (1 gráfico shift 6) (1 gráfico shift F) (3 
gráfico shift 6) (3 gráfico shift F) (1 gráfico shift 6) (2 gráfico shift 
F) (2 gráfico shift 6) (1 gráfico shift F) (1 gráfico shift 6) (3 gráfico 
shift F) (4 gráfico shift 6) (2 gráfico shift F) (2 gráfico shift 6) (1 gr 
áfico shift F) (3 gráfico shift 6)” 

PRINT AT 5,0;"(32(0))" 

PRINT AT 1,0;"PONTOS:":E;AT 1,15;VIDAS:";V 

LET B$=" (2 gráfico shift D) (1 gráfico shift G) (1 gráfico shift D) (3 
gráfico shift G) (3 gráfico shift D) (1 gráfico shift G) (2 gráfico shift 
D) (2 gráfico shift G) (1 gráfico shift D) (1 gráfico shift G) (3 gráfico 
shift D) (4 gráfico shift G) (2 gráfico shift D) (2 gráfico shift G) (1 gr 
áfico shift D) (3 gráfico shift G)” 

REM MENU PRINCIPAL 

PRINT AT 0,0; A$;AT 6,0;B$ 

PRINT AT 3,0;'(32 gráfico shift 7)" 

PRINT AT 9,0;"(32 gráfico shift 7)" 

LET A$=A$ (32) + AS (TO 31) 

LET B$-=B$ (32) + B$ (TO 31) 

IF C=0 THEN LET H=INT (RND*10)+ 1 

IF H=2 OR H=4 OR H=8 THEN GOSUB 400 

IF C=1 THEN PRINT AT X-1,Y;“0" 

IF C=0 THEN LET H=INT (RND*10)+1 

IF C=1 AND INKEY$="0" THEN GOSUB 500 

LET |=20 

PRINTATXY;UW” 

LET Y=Y+(INKEY$="8" AND Y < 29)-(INKEY$="5" AND Y > 
D) 

GOTO 150 

REM ROTINA DE QUEDA DO BARRIL 

LET H=INT (RND*28)+1 

POKE 16418,0 

FOR F=5 TO 21 

PRINT AT E,H+1;“0";AT F=1,H+1;0 

PRINTATXY;UW” 

LET Y=Y+(INKEY$="8" AND Y < 29)-(INKEY$="5" AND > 0) 
IF X=F AND H=Y THEN LET C=1 

IF F=X AND H=Y THEN GOTO 458 

PRINT AT E+1,H+1; 

LET P=PEEK 16398+256*PEEK 16399 

IF PEEK P=28 THEN PRINT AT F+1,H;0” 
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459 
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465 
470 
499 
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510 
520 
530 
535 
542 
55O 
560 
565 
570 
580 
581 
582 
584 
585 
586 
600 
610 
620 
630 
-640 


650 
655 
656 
660 
700 
710 
720 
7130 
740 
750 


PARA ANUNCIAR 
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NEXT F 
LET V=V-1 

IFV <30 THEN GOTO 730 

IF F=X AND H=Y THEN LET E=E+1 
IFV<10ANDV>B8THENPRINTAT1,21" 
IF E=b0 THEN GOTO 700 

PRINT AT 1,0;'PONTOS:":E;AT 1,15; VIDAS:":V 
RETURN 

REM ROTINA PARA JOGAR O BARRIL 

LET |=|-2 

PRINT ATLY+;CONAT +2,N+1 

PRINT AT |-2,Y+1; 

LET P=PEEK 16398+256*PEEK 16399 

IF PEEK P=28 THEN GOTO 500 

IF PEEK P=137 THEN GOTO 580 

IF PEEK P=138 THEN GOTO 584 

GOTO 600 

LET C=0 

RETURN 

LET |=9 

LET C=0 

RETURN 

LET |=2 

LET C=0 

RETURN 

FOR O0=I TO 21 

PRINT AT ONY+H;UON;ATOMNY+E ” 

NEXT O 

FOR 0-0 TO 10 

PRINT AT X,Y;"(1 espaço) (1 “W” inverso) (1 espaço)";AT X,Y:” 
w” 

NEXT O 

LET V=V-1 

PRINT AT 1,21;V 

RETURN 

CLS 

PRINT AT 11,2:/PARABENS VOCE CONSEGUIU.” 
STOP 

CLS 

PRINT AT 11,2:/VOCE ESTA DESPEDIDO” 
STOP 
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Aí vão dois programas de efei- 
to visual, que podem ser de utili- 


dade às pessoas que lidam com: 


trabalhos de talagarça, carpetes, 
tapetes, etc. ou qualquer traba- 
lho que envolva desenhos simé- 
tricos. O primeiro poderia ser de- 
finido como um tipo de mostruá- 
rio, porque vai passando um tipo 
de desenho da metade da tela pa- 
ra cima, e depois vai mudando. 
No segundo, já o efeito lembra 
um caleidoscópio e ao mesmo 
tempo aquelas lindas cortinas de 
desenhos geométricos, tanto um 
quanto o outro são muito boni- 
tos, vale a pena digitá-los, mesmo 
porque eles são simples e curtos. 
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PROGRAMAS DESENVOLVIDOS PARA A LINHA SINCLAIR 
1ê MEMÓRIA OCUPADA 1.210 Kbytes 
2º MEMÓRIA OCUPADA 1.142 Kbytes 


LET P=2 

LET M=10 

POKE 16418,M 

DIM AS(M) 

FOR A=PTOM 

LET AS(A)=CHR$ (INT (RND*9)+P) 
NEXT A 

GOSUB 160 

FOR G=P TOM 

PRINT AS$(G); 

LET K=K+P/P 

IF K=M+M+M THEN GOSUB 160 
IF RND <. 006 THEN RUN 
NEXT G 

GOTO 90 

SCROLL 

LET K=Q 

RETURN 


LET Z=PI/PI 

LET Y=9 

LET X=5 

LET M=Y+Y 

LET N=M+Y 

LET A$=CHRS$ (INT (RND*Y)+2Z) 
LET B=INT (RND*X)+Y 

LET C=INT (RND*X)+Z 

LET F=INT (RND*C)+Z 

FOR D=C TO CODE AS$STEPC 
LET E=RND*Y+X 

PRINT AT D,E;A$;AT M-D,E;A$;AT DnN-E;A$;ATD,N-E;AS$;ATM-D,N-E;A$ 
NEXT D 

RUN 
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Você como um bom qguarda- 
noturno irá proteger vários quar- 
teirões, para isso deverá dar a vol- 
ta neles e logicamente receber 
por isso, Só- que como você a 
cada volta recebe um pagamento, 
e os moradores não podem pa- 
gar mais do que uma volta, os 
quarteirões em que houver pas- 
sado, serão bloqueados, nos quais 
não tornará a passar. Não se es- 
queça que você é um guarda-no- 
turno e tem que enfrentar la- 
drões, e ladrões poderosos que 
podem matá-lo, e como você 
não pode fugir à regra, foge deles 
para obter lucros. Na tela você 
será o caracter que sai da linha (5, 
e coluna Q logo abaixo verá um 





outro caracter, o qual deverá ir 
de encontro, ao atingí-lo, você 
será bloqueado pelas costas, não 
podendo voltar, e ao mesmo 
tempo aparecerá um cifrão, no 
qual também deverá se encon- 
trar para receber seu bônus, 
que será anotado no quarteirão 
correspondente. Cuidado para 
não se bloquear de maneira que 
não possa mais se mover pela 
cidade. 


Seus controles são: 
“Bb” (esquerda) 
“6” (para baixo) 
“7"" (para cima) 
“8" (para direita) 
Boa arrecadação. 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA 2.848 Kbytes 


10 LET X=Q0 

20 LET Y=Q 

30 LET P-Q 

40 LET C=Q 

42 LET A-=Q 

44 LET PO=Q 
45 FAST 


46 REM DESENHA A TELA 


50 FOR F=0TO 20 


60 PRINT AT F,0;CHR$ 128;AT F,5;CHR$ 128;AT F,10;CHR$ 128;AT 
F,15;CHR$ 128;AT F,20;CHR$ 128;AT F,25:CHR$ 128;AT F,30;C 


HR$ 128 
76 NEXT F 
75 FOR F=0 TO 30 


76 PRINT AT Q0,F;CHR$ 128;AT 4,F;CHR$ 128;AT 8,F;CHR$ 128;AT 
12,F;CHR$ 128;AT 16,F;CHR$ 128;AT 20,F;CHR$ 128 
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210 
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510 
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NEXT F 

SLOW 

REM MENU PRINCIPAL 

FOR S-=0 TO 30000 

LET B=INT (RND*20) 

IF B=11 THEN GOSUB 600 

PRINT AT X,Y:“H";AT X,Y; (espaço inverso)" 

IF X/4=INT (X/4) THEN LET Y=Y+(INKEY$="8" AND Y < 30)- 
(INKEY$='5" AND Y > 0) 

IF Y/B=INT (Y/5) THEN LET X=X+ (INKEY$="6" AND X < 20)- 
(INKEY$="7" AND X > 0) 

IF X/4=INT (X/4) AND Y/B=INT (Y/5) AND X < 18 THEN PRIN 
T AT X+3,Y;CHR$8B 

PRINTATX,Y; 

LET P=PEEK 16398+256*PEEK 16399 

IF PEEK P=156 THEN GOTO 550 

IF PEEK P=8 THEN GOSUB 190 

IF PEEK P=13 THEN GOSUB 190 

IF X/4=INT (X/4) AND Y/5=INT (Y/5) THEN GOSUB 190 
NEXTS 

GOTO 100 

REM ROTINA DOS LADROES 

PRINTATX,Y; 

LET P=PEEK 16389+256*PEEK 16399 

IF PEEK P=8 THEN PRINT AT X-1,Y;CHR$ 156;AT X-3,Y+1;CH 
R$ 13 

IF PEEK P=13 THEN PRINT AT X+4,Y-1;CHR$ 156 

IF PEEK P=13 THEN GOSUB 500 

RETURN 

FOR D=X+1 TO X+3 

PRINT AT D,Y;CHR$ 8;AT D,Y+1;CHR$ 8;AT D,Y+2:CHR$ 8:AT 
D,Y+3:CHR$ 8 

NEXT D 

LET PO=PO+INT (RND*10) 

PRINT AT X+2, Y+1;PO 

RETURN 

CLS 

PRINT AT 11,9;'VOCÊE FOI PEGO.” 

PRINT AT 12,5;"SEUS PONTOS FORAM: ";PO 

FOR F=0 TO 80 

NEXT F 

CLS 

RUN 

PRINTATX,Y;H” 

FOR G=0 TO 3Ó STEP 3 

IF X=4 AND Y=G OR X=16 AND Y=G THEN GOTO 550 

PRINT AT 4,6; *":AT 4,G;"(1 espaço inverso)";AT 16,G;*";AT 
16,G;” (1 espaço inverso)” 

NEXT G 

FOR G=0 TO 20 STEP3 

IF Y=b AND X=G OR Y=25 AND X=G THEN GOTO 550 

PRINT AT G,5;'*";AT G,5;"'(1 espaço inverso)";AT G,25;*":AT 
G,25;"(1 espaço inverso)” 

NEXT G 

RETURN 
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Este programa é muito inte- 
ressante, comumente jogado com 
palitos, nele você deverá tirar (su- 


.postamente) uma quantidade de 


palitos determinada pelo compu- 
tador. Ex.: TIRE NO MÁXIMO 
3, obviamente você poderá tirar 
um, dois ou três, mas sempre 
terá que tirar, o objetivo do jogo 
é quem tirar por último perde, 
dentro de uma série de dez par- 
tidas. Raramente ganhará do 
computador, mas tenho certeza 
que irá superá-lo com o tempo, 
normalmente o computador sor- 
teia um número aleatório de pa- 
litos, e também uma retirada ou 
de três ou de quatro. 

Boa sorte (garantoque vai pre- 
cisar). 
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PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA 1.833 Kbytes 


5 LET N=1 
10 LET X=Q0 
15 LET Y=Q 
20 LET E=Q 
30 LET C=16+INT (RND*9) 
40 IF 2*INT (E/2)=Z THEN GOTO 30 
50 LET H=3+INT (RND*2) 
51 IF N=12 THEN GOTO 280 
52 FORF=-0TOS 
53 PRINT AT 0,0;“PARTIDA:(inverso)";AT 0,0;“PARTIDA::;N 
55 NEXT F 
56 PRINT 
60 PRINT “TIRE NO MAXIMO DE”;H 
61 PRINT 
65 PRINT “VOCE=":X;"EU=":Y. 
70 PRINT 
80 IF E> O THEN PRINT “VOCE TIRA”;E;”EU TIRO";Q 
90 PRINT 
100 FOR K=1TO Z 
110 PRINT "(gráfico shift 7) (1 espaço)"; 
120 IF RND>.7 THEN PRINT 
130 NEXT K 
146 PRINT 
150 INPUT E 
160 IFE>HTHEN GOTO 150 
170 CLS 
180 LET Z2=Z-E 
195 IF Z <1 THEN LET Y=Y+1 
196 IFZ<1 THEN LET N=N+1 
197 IFZ*<1 THEN GOTO 20 
210 LET 0=2-1-INT ((2-1)/(H+1)) *(H+1)+HINT (RND *2) 
220 IFO>ZOR 0=00RQ> HTHEN GOTO 210 
230 LET Z2=2-Q 
240 IFZ <1 THEN LET X=X+1 
242 IFZ &1 THEN LET N=N+7 
243 IFZ &1 THEN GOTO 20 
270 GOTO 67 
280 IF Y > X THEN PRINT “EU GANHEI DE ";Y;” A!;X 
290 IF X> Y THEN PRINT “VOCE GANHOU DE ";X;” A ":Y 
300 STOP 
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Este é um famoso jogo de car- 
tas, que já foi publicado para a 
linha TRS-80, e agora estamos 
publicando para a linha Sinclair. 

O jogo consiste em que você 
deve tirar cartas, até no máximo 
de vinte e um pontos, caso ultra- 
passe, perde. Contra o compu- 
tador poderá jogar o número de 
partidas que você determinar. No 
final haverá um vencedor, que na 





maioria das vêzes é o próprio 
computador, pois ele além de ga- 
nhar, no caso de empate, o desa- 
fia para uma outra rodada para 
ver realmente quem “é o bom”. 
Garanto que você vai gostar, por- 
que realmente é um verdadeiro 
desafio, e um Ótimo passatempo. 

Divirta-se, mas não jogue a di- 
nheiro, pois com certeza iria per- 
der). 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR 
MEMÓRIA OCUPADA: 2308 Kbytes 


10 PRINT “QUANTAS RODADAS ?” 


20 INPUT RS 

30 CLS 

40 LET HR=0 

50 LET CR=Q 

60 FOR Z=1 TO RS 
10 LET HT=Q 

80 LET CT=Ô 

90 GOSUB 5000 

95 CLS 


100 PRINT “AN PARA TIRAR SUAS CARTAS”, “2 PARA TIRAR AS 
MINHAS”, ,, “TOTAL=";HT,,,,“PRESSIONE 1 ou 2” 


110 LET AS=INKEY$ 


120 IF A$="1" THEN LET HT=HT+HI+INT (RND*6) 


130 IF A$="1"" THEN GOTO 200 
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140 IF A$="2" THEN GOTO 300 
150 GOTO 110 
200 CLS 
210 IF HT <22 THEN GOTO 100 
220 PRINT'“VOCE TENTOU” 
230 GOTO 500 
300 CLS 
310 LET R=INT (RND*6)+1 
320 LET CT=CT+R 
330 PRINT “EU TIRO UM “;R;“—MEU TOTAL E “:;CT 
340 IFCT<170ORCT<HT THEN GOTO 310 
350 IFCT>21 THEN PRINT “EU TENTEI” 
360 IFCT> 21 THEN GOTO 400 
370 PRINT “EU TENHO “;CT 
380 PRINT “VOCE TEM “;HT 
390 GOTO 400+(100 AND CT > HT)+(200 AND CT=HT) 
400 LET HR=HR+1 
405 GOSUB 9000 
410 CLS 
415 PRINT “VOCE GANHOU” 
425 GOSUB 9000 
430 GOTO 620 
500 LET CR=CR+1 
505 GOSUB 9000 
510 CLS 
520 PRINT “EU GANHEI” 
525 GOSUB 9000 
530 GOTO 620 
600 CLS 
605 GOSUB 9000 
610 PRINT “ESTA NOS EMPATAMOS”' 
615 GOSUB 9000 
620 NEXT Z 
630 CLS 
640 PRINT (“A VITORIA E MINHA.” AND CR> HR)J:(“A VITORIA E 
SUA.” AND HR > CRJ);(“NOS EMPATAMOS VOCE DECIDE...” AN 
D CR=HR) 
641 IFCR> HR THEN PRINT “DE":CR;” A ":HR 
642 IF HR> CR THEN PRINT “DE":HR;“ A “;CR 
645 IF CR=HR THEN PRINT “QUER TIRAR A DIFERENCA?” 
646 IF CR=HR THEN INPUT S$ | 
647 IF CR=HR THEN IF S$="S” THEN RUN 
648 IF CR=HR THEN IF S$=“N” THEN PRINT “COVARDE” 
650 STOP 
500) CLS 
5016 PRINT “ESTA E A RODADA":;CHR$ (2+156);” | ”,,, “VOCE 
GANHOU” ;HR;“RODADAS","EU GANHEI";CR;” RODADAS” 
5020 GOSUB 9000 
5040 RETURN 
9000 PRINT ,,“PRESSIONE UMA TECLA” 
9005 IF INKEY$< >" "” THEN GOTO 9005 
9010 IF INKEY$=" "" THEN GOTO 9010 
9020 RETURN 
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Está aberta a seção de progra- 
mas do leitor, fundada por vocês 
leitores, que irá abrir um inter- 
câmbio fabuloso de programas e 
conhecimentos, sem esquecer o 
fato, de que com ela, estamos 
fundando um clube brasileiro, 


) 
e (o 


do Leitor 


onde todos colaboram uns com 
os outros, especialmente no fato 
de ampliar a variedade de progra- 
mas para todas as linhas. Portan- 
to, na realidade vocês mesmos es- 
tão aumentando suas coleções de 
programas.. 


1 
2 
10 
20 
30 


40 
50 


60 
70 


80 


90 
100 
110 
120 


REM PARA O TK2000 

REM PROGRAMADOR: RICARDO CAPONERO 

HOME 

FOR A=1 TO 15 STEP 2 

VLIN 1,47 AT A: HLIN 1,39 AT A: VLIN 1,47 AT 40 — A:HLIN 
1,39 AT48— A 

NEXT 

VTAB11: HTAB19: PRINT “JOGO”: VTAB13: HTAB20: PRINT 
“DA” : VTAB 15: HTAB 19: PRINT “SENHA” 

GOSUB 710: HOME 

VTAB2:HTAB4: PRINT “VOCE ESTA DIANTE DE UM TREME 
NDO COFRE”: PRINT: PRINT “CUJO SEGREDO E COMPOSTO 
PELOS ALGARISMOS”: PRINT: PRINT “DE 0 A 9 DISPOSTOS 
EM UMA COMBINACAO DE”: PRINT: PRINT “5 DIGITOS, SE 
M REPETICAO." 

VTAB14: HTAB4: PRINT “VOCE TERA SO 8 CHANCES PARA 
DESVENDAR”: PRINT: PRINT “ESTA DIFICIL SENHA.”: VTA 
B22: HTABA4: PRINT “TENTE, SE FOR CAPAZ!” 

GOSUB 720 

CLEAR: TEXT: HGR: HCOLOR = 1 

FOR A=1 TO 158: HPLOT 1,A TO 278,A: NEXT 

VTAB1: HTAB7: PRINT “SENHA";: HTAB21: PRINT “POSICO 
ES";: HTAB32: PRINT “NUMEROS” 
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130 HCOLOR = 6: HPLOT 139,1 TO 139,158 
140 HCOLOR = 5: FOR A=13 TO 25: HPLOT 1,A TO 139,A: NEXT 
150 DIM N(5), M(5), A%(142), B%(142) 
160 L= L+71 
170 IFL>5 THEN 230 
180 Y = INT(RND(1)*10-1): IF Y «1 THEN 180 
199 FORX= 1TOL 
200 IF N(X)= Y THEN 180 
210 IF N(X) = OTHEN N(X) = Y: GOTO 160 
220 NEXT X 
230 VE= 3 
240 P= 0:N= 0:VE= VE+2:HO= -2 
250 VTAB21: PRINT “FORNECA OS DIGITOS” 
260 FORI=1TOS5 
270 GET M(D: IF M(l)= O THEN VTAB23: PRINT “O ZERO NAO 
ESTA NO JOGO”: GOSUB 710: GOSUB 730: GOTO 270 
280 FORV= 1TOI 
290 IF M(l)= M(V-1) THEN VTAB23: PRINT NAO HA REPETICA 
O DE NUMEROS.”: GOSUB 710: GOSUB 730: GOTO 270 
300 NEXT V 
305 HO= HO +4 
310 VTAB VE: HTAB HO: PRINT“ “M(l);” ": NEXT 
320 FOR I = 1TO5 
330 IF N(l)= M(I) THEN P = P+1 
340 NEXT | 
350 FORX= 1TO5:FORY= 1TOS 
360 IF M(X) = N(Y) THEN N= N+1 
370 NEXT Y: NEXT X 
380 VTAB VE: HTAB 25: PRINT“ “SP: “:«-HTAB35: PRINT” 
MN 
390 IFP = 5 THEN 490 
400 J = J+1:IFJ = 8 THEN 420 
410 GOSUB 740: GOTO 240 
420 GOSUB 740: VTAB21: PRINT “SUAS CHANCES ACABARAM, 
MAS COMO SOU”: PRINT “BONZINHO, VOU MOSTRAR O 
NUMERO.” 
430 HO = -2 
440 FORX= 1 TOS 
445 HO= HO+4 
450 VTAB3: HTAB HO: PRINT“ “:N(X); * 
460 NEXT X 
470 GOSUB 729: GOTO 680 
480 GOSUB 740 
490 HCOLOR = 0:X= 140: Y = 138: GOSUB 740 
500 FORA= OTO 138 
510 X=X-1:Y=Y+1 
520 HPLOT X,1 TO X,158: HPLOT Y,1 TO Y,158 
530 FORW= ÓTO 200: NEXT 
540 NEXT A: HGR2 
550 DATA 96, 72, 64, 60, 47, 60, 64, 47, 76, 72, 72, 1, 80, 85, 96, 108, 
90, 85, 72, 72, 96, 1, 96, 76, 72, 64, 53, 64, 60, 72, 64, 64, 1, 72, 80, 
90, 90, 96, 108, 96, 72, 96, 1, 96, 72, 64, 60, 47, 76, 72,72,1,72, 
53, 47, 45, 47, 53, 72 
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560 DATA 90,108, 108, 1, 108, 85, 80, 72, 90, 108, 72, 64, 56, 56, 1, 56, 
64, 72, 96, 76, 64, 72, 64, 72,72, 1,80, 72, 80, 47, 47, 64, 53, 60, 96, 
80, 64, 72, 72, 108, 90, 64, 72, 53, 53, 56, 47, 53, 72, 72, 56, 64 


570 DATA 72, 80, 96, 72, 80, 47, 47, 64, 53, 60, 80, 80, 90, 96, 96, 108, 
72, 1,72, 64, 72, 80, 80, 60, 47, 60, 4, 64, 72, 80, 60, 60 

580 DATA 2,2,2,2,4,2,2,4,2,4,2,2,2,2,2,2,4,4,4,8,2,2,2,2,2, 
4,4,4,2,4,2,2,2,2,2,2,2,2,4,4,8,2,2,2,2,2,4,2,4,2,2,2,2, 
2,4,4,4,2,4,2,2,2,2,2,2,4,4,4,2,4,2,2,2,2,2,2, 

590 DATA 4,4,4,4,8,4,4,8,4,4,8,2,1,2,1,4,4,4,4,8,8,8,4,4,8, 
2,1,2,1,4,2,4,4,8,8,8,4,8,2,1,2,1,4,2,4,4,4,2,4,4,8,4,4, 
8,2,1,2,1,4,2,4,4,8,2 


600 FOR X= MTO 142: READ A%(X): NEXT 

610 FORX= DTO 142: READ BW(X): NEXT 

620 FORR= 0TO1 

630 FOR X= TO 142: SOUND A%(X), B%(X)*30 

640 HCOLOR = INT(RND(1)*5+1) 

650 HPLOT X,X TO 279-X,X TO 279-X,191-X TO X, 191-X TO X,X 
660 NEXT X: NEXT R 

670 TEXT: VTAB11: HTAB14: PRINT “VOCE VENCEU!” 

680 VTAB23: PRINT “QUER TENTAR OUTRA VEZ? (S/N)” 
690 GET OPS: IF OP$ = “S” THEN 100 

700 END 

716 FORW= QTO 800: NEXT: RETURN 

720 FORW= ÓTO 6000: NEXT: RETURN 

730 VTAB23: PRINT SPC(40): RETURN 

740 VTAB 21: PRINT SPC(120): RETURN 


4 REM TAPETES PERSAS 
6 REM AUTOR: RUY C. GONCALVES 

8 REM AGOSTO DE 1984 — PORTO ALEGRE — RS 
19 CLS 

20 LET T$=" * 

30 FOR I=1 TO 5 

40 LET A=INT (RND*11) 

50 LET B=INT (RND*11)+ 128 

60 LET T$=T$+ CHR$ A+ CHR$B 

70 NEXT 

80 FOR |=1 TO 64 

90 PRINT TS; 
100 NEXT | 
110 FOR I=1 TO 100 
120 NEXT! 
130 GOTO 10 


1 REM TEIA DE ARANHA 
2 REM AUTOR: PAULO CESAR DASILVA 
19 CLS 
20 FOR C=0 TO 4ÓSTEP 5 
30 LET Y=INT (22-X-32)*(C—22)/32) 
40 IFY>430RYSQTHENGOTO 70 
50 FOR X=D TO 63. 
60 SET (X,Y) 
65 NEXT X 
70 NEXT C 


LL ODLGODODOD DODGE 


No 
O 


"US LoLLOLLLDOLHGOD LL 


2) 


7 







Neste número trataremos de 
problemas do tipo erro 5, etc. 
Digite o programa abaixo: 


10 POKE 16418,0 

20 FAST 

30 FOR F=0 TO 763 

40 PRINTCHR$8; 

50 NEXT F 

52 SLOW 

60 PRINT AT 0,0;/QUAL NU 
MERO?” 

70 INPUT A 

80 IFA<>QG THEN GOTO 
100 

9 GOTO 69 

190 STOP 


Note que, após o programa 
executar a linha 76 INPUT A, vo- 
cê perde o programa, porque ele 
entra em looping. Ora se você li- 
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berta as duas linhas inferiores 
com 10 POKE 16418,0 a linha 
70 não encontrará espaço para 
imprimir as aspas do INPUT, 
então o que se deve fazer é mui- 
to fácil, basta acrescentar a linha 
5h POKE 16418,2, fazendo com 
que libere as duas linhas inferio- 
res para entrar com INPUT. Esse 
problema, se não detectado, dei- 
xa a pessoa louca, ou com medo 
que seu micro esteja dando pro- 
blema. 

Agora digite o seguinte progra- 
ma: 


10 LET X=Q0 

20 LET Y=Q 

40 PRINT AT X,Y;CHR$8:;AT 
> é 

5) LET Y=Y+1 

60 GOTO 40 
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10 LET X=0 
20 LET Y=11 
25 FAST 


Supondo que este caracter te- 
nha que se mover sozinho, num 
sentido de vai-e-vem, no momen- 
to ele não o fará, pois está ocor- 
rendo erro B (número inteiro 
fora de faixa), agora se você in- 
troduzir e substituir algumas li- 
nhas conseguirá, adicione as se- 
guintes linhas: 


30 LET 1-1 

50 LET Y=Y+1 

55 IFY<1ORY>30THEN 
|=[*-1 


Tente saber o porquê desse 
movimento, isto em termos ma- 
temáticos, é claro. 

Ágora vamos dar uma dica im- 
portantíssima, para quem real- 
mente gosta de programação. 
Digite o seguinte programa: 


30 FOR F=D TO 100 
40 LET A=INT (RND*22) 


50 LET B=INT 


(RND*32) 


60 PRINT AT A,B;CHR$8 


70 NEXT F 
75 SLOW 


80 PRINT AT Y,X;(1 espaço inverso)" ;AT Y,X;” 


90 LET Y=Y+(INKEY$="6")- (INKEY$="7"') 


100 LET X=X+1 


110 PRINT ATY,X; 


120 IF PEEK (PEEK 16398+256*PEEK 16399)=8 THEN GOTO 


170 


130 IF X=31 THEN GOTO 150 


140 GOTO 80 
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150 PRINT AT 11,0;/VOCE CONSEGUIU PASSAR SEM BATER” 


160 STOP 


170 PRINT AT 11,0;”VOCE BATEU NUM OBSTACULO” 


180 STOP 


O segredo está na linha 126, 
portanto esta variável testa qual- 
quer ponto; e na linha 110 existe 
uma importância muito grande, 
pois ela é que vai identificar o 
ponto na tela. A linha 120 iden- 
tifica o ponto na tela através do 
caracter de código 8, este tipo de 


instrução é muito usado em jo- 
gos de ação. 


Esperamos que através destas 
dicas, você amplie seus conheci- 
mentos para ser um grande pro- 
gramador no futuro. Até o pró- 
ximo número... 
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